***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
STORE 0 TO TRPRIC,SLPRIC,STREF,STMAX,CLREF,CLMAX,BUYINSEL                                                                                                                                                                                                 
            STORE .F. TO FSALE,HLINE,MEDS                                                                                                                                                                                                                 
            kode=spac(5)                                                                                                                                                                                                                                  
            STORE SPACE(6) TO UNIT,QANT                                                                                                                                                                                                                   
            STORE SPACE(12) TO TIPE,BUNIT,SUNIT                                                                                                                                                                                                           
            name=spac(20)                                                                                                                                                                                                                                 
            nslpric  = 0                                                                                                                                                                                                                                  
            efetang  =ctod('  /  /    ')                                                                                                                                                                                                                  
